home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Build / head.dpr < prev    next >
Encoding:
Text File  |  1999-03-17  |  394 b   |  24 lines
  1. {$APPTYPE Console}
  2.  
  3. program head;
  4.  
  5. uses
  6.   SysUtils,
  7.   Classes;
  8.  
  9. var
  10.   str : TStringList;
  11.   i   : integer;
  12.   last: integer;
  13.  
  14. begin
  15.   str := TStringList.Create;
  16.   try
  17.     str.LoadFromFile(ParamStr(1));
  18.     last := StrToIntDef(ParamStr(2),20);
  19.     if last >= str.Count then last := str.Count-1;
  20.     for i := 0 to last do
  21.       Writeln(str[i]);
  22.   finally str.Free; end;
  23. end.
  24.